<!-- This comment will put IE 6, 7 and 8 in quirks mode -->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
<title>include/shark/LinAlg/BLAS/kernels/gpu/trsm.hpp Source File</title>
<script type="text/javaScript" src="search/search.js"></script>
<script type="text/javascript" src="jquery.js"></script>
<script type="text/javascript" src="dynsections.js"></script>
<script src="https://polyfill.io/v3/polyfill.min.js?features=es6"></script>
<script id="MathJax-script" async src="https://cdn.jsdelivr.net/npm/mathjax@3.0.1/es5/tex-mml-chtml.js"></script>
<script src="../../mlstyle.js"></script>
<link href="../css/besser.css" rel="stylesheet" type="text/css"/>
</head>
<!-- pretty cool: each body gets an id tag which is the basename of the web page  -->
<!--              and allows for page-specific CSS. this is client-side scripted, -->
<!--              so the id will not yet show up in the served source code -->
<script type="text/javascript">
    jQuery(document).ready(function () {
        var url = jQuery(location).attr('href');
        var pname = url.substr(url.lastIndexOf("/")+1, url.lastIndexOf(".")-url.lastIndexOf("/")-1);
        jQuery('#this_url').html('<strong>' + pname + '</strong>');
        jQuery('body').attr('id', pname);
    });
</script>
<body>
    <div id="shark_old">
        <div id="wrap">
            <div id="header">
                <div id="site-name"><a href="../../sphinx_pages/build/html/index.html">Shark machine learning library</a></div>
                <ul id="nav">
                    <li >
                        <a href="../../sphinx_pages/build/html/rest_sources/installation.html">Installation</a>
                    </li>
		    <li >
                        <a href="../../sphinx_pages/build/html/rest_sources/tutorials/tutorials.html">Tutorials</a>
                    </li>
		    <li >
                        <a href="../../sphinx_pages/build/html/rest_sources/benchmark.html">Benchmarks</a>
                    </li>
                    <li class="active">
                        <a href="classes.html">Documentation</a>
                        <ul>
                            <li class="first"></li>
                            <li><a href="../../sphinx_pages/build/html/rest_sources/quickref/quickref.html">Quick references</a></li>
                            <li><a href="classes.html">Class list</a></li>
                            <li class="last"><a href="group__shark__globals.html">Global functions</a></li>
                        </ul>
                    </li>
                </ul>
            </div>
        </div>
    </div>
<div id="doxywrapper">
<!--
    <div id="global_doxytitle">Doxygen<br>Documentation:</div>
-->
    <div id="navrow_wrapper">
<!-- Generated by Doxygen 1.9.8 -->
<div id="nav-path" class="navpath">
  <ul>
<li class="navelem"><a class="el" href="dir_d44c64559bbebec7f509842c48db8b23.html">include</a></li><li class="navelem"><a class="el" href="dir_9d0c4981f10d03078bcfd5c74fe41ce8.html">shark</a></li><li class="navelem"><a class="el" href="dir_dd3f668d951792dcec83cb1f625ad30c.html">LinAlg</a></li><li class="navelem"><a class="el" href="dir_c5d13ad5e321ff5ee54f52b8a41def8a.html">BLAS</a></li><li class="navelem"><a class="el" href="dir_4c58f0aa30e78d0b4c636abf7730e59a.html">kernels</a></li><li class="navelem"><a class="el" href="dir_c8db36baf383dfe729a75878026c1784.html">gpu</a></li>  </ul>
</div>
</div><!-- top -->
<div class="header">
  <div class="headertitle"><div class="title">trsm.hpp</div></div>
</div><!--header-->
<div class="contents">
<a href="gpu_2trsm_8hpp.html">Go to the documentation of this file.</a><div class="fragment"><div class="line"><a id="l00001" name="l00001"></a><span class="lineno">    1</span><span class="comment">/*!</span></div>
<div class="line"><a id="l00002" name="l00002"></a><span class="lineno">    2</span><span class="comment"> * </span></div>
<div class="line"><a id="l00003" name="l00003"></a><span class="lineno">    3</span><span class="comment"> *</span></div>
<div class="line"><a id="l00004" name="l00004"></a><span class="lineno">    4</span><span class="comment"> * \brief       -</span></div>
<div class="line"><a id="l00005" name="l00005"></a><span class="lineno">    5</span><span class="comment"> *</span></div>
<div class="line"><a id="l00006" name="l00006"></a><span class="lineno">    6</span><span class="comment"> * \author      O. Krause</span></div>
<div class="line"><a id="l00007" name="l00007"></a><span class="lineno">    7</span><span class="comment"> * \date        2016</span></div>
<div class="line"><a id="l00008" name="l00008"></a><span class="lineno">    8</span><span class="comment"> *</span></div>
<div class="line"><a id="l00009" name="l00009"></a><span class="lineno">    9</span><span class="comment"> *</span></div>
<div class="line"><a id="l00010" name="l00010"></a><span class="lineno">   10</span><span class="comment"> * \par Copyright 1995-2015 Shark Development Team</span></div>
<div class="line"><a id="l00011" name="l00011"></a><span class="lineno">   11</span><span class="comment"> * </span></div>
<div class="line"><a id="l00012" name="l00012"></a><span class="lineno">   12</span><span class="comment"> * &lt;BR&gt;&lt;HR&gt;</span></div>
<div class="line"><a id="l00013" name="l00013"></a><span class="lineno">   13</span><span class="comment"> * This file is part of Shark.</span></div>
<div class="line"><a id="l00014" name="l00014"></a><span class="lineno">   14</span><span class="comment"> * &lt;http://image.diku.dk/shark/&gt;</span></div>
<div class="line"><a id="l00015" name="l00015"></a><span class="lineno">   15</span><span class="comment"> * </span></div>
<div class="line"><a id="l00016" name="l00016"></a><span class="lineno">   16</span><span class="comment"> * Shark is free software: you can redistribute it and/or modify</span></div>
<div class="line"><a id="l00017" name="l00017"></a><span class="lineno">   17</span><span class="comment"> * it under the terms of the GNU Lesser General Public License as published </span></div>
<div class="line"><a id="l00018" name="l00018"></a><span class="lineno">   18</span><span class="comment"> * by the Free Software Foundation, either version 3 of the License, or</span></div>
<div class="line"><a id="l00019" name="l00019"></a><span class="lineno">   19</span><span class="comment"> * (at your option) any later version.</span></div>
<div class="line"><a id="l00020" name="l00020"></a><span class="lineno">   20</span><span class="comment"> * </span></div>
<div class="line"><a id="l00021" name="l00021"></a><span class="lineno">   21</span><span class="comment"> * Shark is distributed in the hope that it will be useful,</span></div>
<div class="line"><a id="l00022" name="l00022"></a><span class="lineno">   22</span><span class="comment"> * but WITHOUT ANY WARRANTY; without even the implied warranty of</span></div>
<div class="line"><a id="l00023" name="l00023"></a><span class="lineno">   23</span><span class="comment"> * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the</span></div>
<div class="line"><a id="l00024" name="l00024"></a><span class="lineno">   24</span><span class="comment"> * GNU Lesser General Public License for more details.</span></div>
<div class="line"><a id="l00025" name="l00025"></a><span class="lineno">   25</span><span class="comment"> * </span></div>
<div class="line"><a id="l00026" name="l00026"></a><span class="lineno">   26</span><span class="comment"> * You should have received a copy of the GNU Lesser General Public License</span></div>
<div class="line"><a id="l00027" name="l00027"></a><span class="lineno">   27</span><span class="comment"> * along with Shark.  If not, see &lt;http://www.gnu.org/licenses/&gt;.</span></div>
<div class="line"><a id="l00028" name="l00028"></a><span class="lineno">   28</span><span class="comment"> *</span></div>
<div class="line"><a id="l00029" name="l00029"></a><span class="lineno">   29</span><span class="comment"> */</span></div>
<div class="line"><a id="l00030" name="l00030"></a><span class="lineno">   30</span> </div>
<div class="line"><a id="l00031" name="l00031"></a><span class="lineno">   31</span><span class="preprocessor">#ifndef REMORA_KERNELS_CLBLAS_TRSM_HPP</span></div>
<div class="line"><a id="l00032" name="l00032"></a><span class="lineno">   32</span><span class="preprocessor">#define REMORA_KERNELS_CLBLAS_TRSM_HPP</span></div>
<div class="line"><a id="l00033" name="l00033"></a><span class="lineno">   33</span> </div>
<div class="line"><a id="l00034" name="l00034"></a><span class="lineno">   34</span><span class="preprocessor">#include &quot;../../expression_types.hpp&quot;</span></div>
<div class="line"><a id="l00035" name="l00035"></a><span class="lineno">   35</span><span class="preprocessor">#include &quot;../../detail/traits.hpp&quot;</span></div>
<div class="line"><a id="l00036" name="l00036"></a><span class="lineno">   36</span><span class="preprocessor">#include &lt;boost/compute/functional/operator.hpp&gt;</span> <span class="comment">//for multiplies</span><span class="comment"></span></div>
<div class="line"><a id="l00037" name="l00037"></a><span class="lineno">   37</span><span class="comment">///solves systems of triangular matrices</span></div>
<div class="line"><a id="l00038" name="l00038"></a><span class="lineno">   38</span><span class="comment"></span> </div>
<div class="line"><a id="l00039" name="l00039"></a><span class="lineno">   39</span><span class="keyword">namespace </span>remora {<span class="keyword">namespace </span>bindings {</div>
<div class="line"><a id="l00040" name="l00040"></a><span class="lineno">   40</span><span class="keyword">struct </span>trsm_kernel{</div>
<div class="line"><a id="l00041" name="l00041"></a><span class="lineno">   41</span>    boost::compute::kernel kernel;</div>
<div class="line"><a id="l00042" name="l00042"></a><span class="lineno">   42</span>    std::size_t K_index;</div>
<div class="line"><a id="l00043" name="l00043"></a><span class="lineno">   43</span>    std::size_t start_index;</div>
<div class="line"><a id="l00044" name="l00044"></a><span class="lineno">   44</span>    std::size_t end_index;</div>
<div class="line"><a id="l00045" name="l00045"></a><span class="lineno">   45</span>    std::size_t unit_index;</div>
<div class="line"><a id="l00046" name="l00046"></a><span class="lineno">   46</span>    std::size_t upper_index;</div>
<div class="line"><a id="l00047" name="l00047"></a><span class="lineno">   47</span>};</div>
<div class="line"><a id="l00048" name="l00048"></a><span class="lineno">   48</span><span class="comment">//Lower triangular - matrix(row-major)</span></div>
<div class="line"><a id="l00049" name="l00049"></a><span class="lineno">   49</span><span class="keyword">template</span>&lt;<span class="keyword">class</span> MatA, <span class="keyword">class</span> MatB&gt;</div>
<div class="line"><a id="l00050" name="l00050"></a><span class="lineno">   50</span>trsm_kernel createTRSMDiagBlockKernel(</div>
<div class="line"><a id="l00051" name="l00051"></a><span class="lineno">   51</span>    matrix_expression&lt;MatA, gpu_tag&gt; <span class="keyword">const</span>&amp; A_unreg,</div>
<div class="line"><a id="l00052" name="l00052"></a><span class="lineno">   52</span>    matrix_expression&lt;MatB, gpu_tag&gt;&amp; B_unreg,</div>
<div class="line"><a id="l00053" name="l00053"></a><span class="lineno">   53</span>    <span class="keywordtype">char</span> <span class="keyword">const</span>* options</div>
<div class="line"><a id="l00054" name="l00054"></a><span class="lineno">   54</span>){</div>
<div class="line"><a id="l00055" name="l00055"></a><span class="lineno">   55</span>    <span class="keyword">typedef</span> <span class="keyword">typename</span> MatA::value_type value_typeA;</div>
<div class="line"><a id="l00056" name="l00056"></a><span class="lineno">   56</span>    <span class="keyword">typedef</span> <span class="keyword">typename</span> MatB::value_type value_typeB;</div>
<div class="line"><a id="l00057" name="l00057"></a><span class="lineno">   57</span>    boost::compute::multiplies&lt;value_typeB&gt; prod;</div>
<div class="line"><a id="l00058" name="l00058"></a><span class="lineno">   58</span>    </div>
<div class="line"><a id="l00059" name="l00059"></a><span class="lineno">   59</span>    gpu::detail::meta_kernel k(<span class="stringliteral">&quot;blas_trsm&quot;</span>);</div>
<div class="line"><a id="l00060" name="l00060"></a><span class="lineno">   60</span>    std::size_t K_index = k.add_arg&lt;std::size_t&gt;(<span class="stringliteral">&quot;K&quot;</span>);<span class="comment">//number of columns in B</span></div>
<div class="line"><a id="l00061" name="l00061"></a><span class="lineno">   61</span>    std::size_t start_index = k.add_arg&lt;std::size_t&gt;(<span class="stringliteral">&quot;start&quot;</span>);<span class="comment">//start of block of A</span></div>
<div class="line"><a id="l00062" name="l00062"></a><span class="lineno">   62</span>    std::size_t end_index = k.add_arg&lt;std::size_t&gt;(<span class="stringliteral">&quot;end&quot;</span>);<span class="comment">//end of Block of A</span></div>
<div class="line"><a id="l00063" name="l00063"></a><span class="lineno">   63</span>    std::size_t unit_index = k.add_arg&lt;std::size_t&gt;(<span class="stringliteral">&quot;unit&quot;</span>);<span class="comment">//whether A is unit triangular</span></div>
<div class="line"><a id="l00064" name="l00064"></a><span class="lineno">   64</span>    std::size_t upper_index = k.add_arg&lt;std::size_t&gt;(<span class="stringliteral">&quot;upper&quot;</span>);<span class="comment">//whether A is upper triangular</span></div>
<div class="line"><a id="l00065" name="l00065"></a><span class="lineno">   65</span>    <span class="keyword">auto</span> A = k.register_args(to_functor(A_unreg));</div>
<div class="line"><a id="l00066" name="l00066"></a><span class="lineno">   66</span>    <span class="keyword">auto</span> B = k.register_args(to_functor(B_unreg));</div>
<div class="line"><a id="l00067" name="l00067"></a><span class="lineno">   67</span>    <span class="comment">// Local memory to fit a tile of A and B</span></div>
<div class="line"><a id="l00068" name="l00068"></a><span class="lineno">   68</span>    <span class="comment">// we store B as column major in local memory</span></div>
<div class="line"><a id="l00069" name="l00069"></a><span class="lineno">   69</span>    <span class="comment">// we also allocate memory to store results of B</span></div>
<div class="line"><a id="l00070" name="l00070"></a><span class="lineno">   70</span>    k &lt;&lt; <span class="stringliteral">&quot;__local &quot;</span> &lt;&lt;k.decl&lt;value_typeA&gt;(<span class="stringliteral">&quot;Asub&quot;</span>)&lt;&lt; <span class="stringliteral">&quot;[TILE_SIZE][TILE_SIZE+2];\n&quot;</span>;<span class="comment">//+2 to avoid bank conflicts</span></div>
<div class="line"><a id="l00071" name="l00071"></a><span class="lineno">   71</span>    k &lt;&lt; <span class="stringliteral">&quot;__local &quot;</span> &lt;&lt;k.decl&lt;value_typeB&gt;(<span class="stringliteral">&quot;Bsub&quot;</span>)&lt;&lt; <span class="stringliteral">&quot;[TILE_SIZE_K][TILE_SIZE+2];\n&quot;</span>;<span class="comment">//+2 to avoid bank conflicts</span></div>
<div class="line"><a id="l00072" name="l00072"></a><span class="lineno">   72</span>    k &lt;&lt; <span class="stringliteral">&quot;const ulong numWorkers = get_local_size(0);\n&quot;</span>;</div>
<div class="line"><a id="l00073" name="l00073"></a><span class="lineno">   73</span>    <span class="comment">//ensure we are not reading out of bounds</span></div>
<div class="line"><a id="l00074" name="l00074"></a><span class="lineno">   74</span>    k &lt;&lt; <span class="stringliteral">&quot;const ulong t = get_group_id(1);\n&quot;</span>;</div>
<div class="line"><a id="l00075" name="l00075"></a><span class="lineno">   75</span>    k &lt;&lt; <span class="stringliteral">&quot;const ulong curTileA = end-start;\n&quot;</span>;</div>
<div class="line"><a id="l00076" name="l00076"></a><span class="lineno">   76</span>    k &lt;&lt; <span class="stringliteral">&quot;const ulong curTileK =  min(TILE_SIZE_K, K - t*TILE_SIZE_K);\n&quot;</span>;</div>
<div class="line"><a id="l00077" name="l00077"></a><span class="lineno">   77</span>    </div>
<div class="line"><a id="l00078" name="l00078"></a><span class="lineno">   78</span>    <span class="comment">// Load tile of A into local memory</span></div>
<div class="line"><a id="l00079" name="l00079"></a><span class="lineno">   79</span>    k &lt;&lt; <span class="stringliteral">&quot;for(ulong i = get_local_id(0); i &lt; TILE_SIZE; i += numWorkers){\n&quot;</span>;</div>
<div class="line"><a id="l00080" name="l00080"></a><span class="lineno">   80</span>    k &lt;&lt; <span class="stringliteral">&quot;  for(ulong j = get_local_id(1); j &lt; TILE_SIZE; j += numWorkers){\n&quot;</span>;</div>
<div class="line"><a id="l00081" name="l00081"></a><span class="lineno">   81</span>    k &lt;&lt; <span class="stringliteral">&quot;      Asub[i][j] =&quot;</span>&lt;&lt; A(k.expr&lt;cl_ulong&gt;(<span class="stringliteral">&quot;min(end-1, start + i)&quot;</span>),k.expr&lt;cl_ulong&gt;(<span class="stringliteral">&quot;min(end-1, start + j)&quot;</span>))&lt;&lt;<span class="stringliteral">&quot;;\n&quot;</span>;</div>
<div class="line"><a id="l00082" name="l00082"></a><span class="lineno">   82</span>    k &lt;&lt; <span class="stringliteral">&quot;  }\n&quot;</span>;</div>
<div class="line"><a id="l00083" name="l00083"></a><span class="lineno">   83</span>    k &lt;&lt; <span class="stringliteral">&quot;}\n&quot;</span>;</div>
<div class="line"><a id="l00084" name="l00084"></a><span class="lineno">   84</span>    </div>
<div class="line"><a id="l00085" name="l00085"></a><span class="lineno">   85</span>    </div>
<div class="line"><a id="l00086" name="l00086"></a><span class="lineno">   86</span>    <span class="comment">// Load Tile of B into local memory, store columns of B as rows</span></div>
<div class="line"><a id="l00087" name="l00087"></a><span class="lineno">   87</span>    k &lt;&lt; <span class="stringliteral">&quot;for(ulong i = get_local_id(0); i &lt; TILE_SIZE; i += numWorkers){\n&quot;</span>;</div>
<div class="line"><a id="l00088" name="l00088"></a><span class="lineno">   88</span>    k &lt;&lt; <span class="stringliteral">&quot;  for(ulong k = get_local_id(1); k &lt; TILE_SIZE_K; k += numWorkers){\n&quot;</span>;</div>
<div class="line"><a id="l00089" name="l00089"></a><span class="lineno">   89</span>    k &lt;&lt; <span class="stringliteral">&quot;      Bsub[k][i] =&quot;</span>&lt;&lt; B(k.expr&lt;cl_ulong&gt;(<span class="stringliteral">&quot;min(end-1,start + i)&quot;</span>),k.expr&lt;cl_ulong&gt;(<span class="stringliteral">&quot;min(K-1,t * TILE_SIZE_K+k)&quot;</span>))&lt;&lt;<span class="stringliteral">&quot;;\n&quot;</span>;</div>
<div class="line"><a id="l00090" name="l00090"></a><span class="lineno">   90</span>    k &lt;&lt; <span class="stringliteral">&quot;  }\n&quot;</span>;</div>
<div class="line"><a id="l00091" name="l00091"></a><span class="lineno">   91</span>    k &lt;&lt; <span class="stringliteral">&quot;}\n&quot;</span>;</div>
<div class="line"><a id="l00092" name="l00092"></a><span class="lineno">   92</span>    <span class="comment">// Synchronise to make sure the tiles are loaded</span></div>
<div class="line"><a id="l00093" name="l00093"></a><span class="lineno">   93</span>    k &lt;&lt; <span class="stringliteral">&quot;barrier(CLK_LOCAL_MEM_FENCE);\n&quot;</span>;</div>
<div class="line"><a id="l00094" name="l00094"></a><span class="lineno">   94</span> </div>
<div class="line"><a id="l00095" name="l00095"></a><span class="lineno">   95</span>    <span class="comment">// Loop over the values of a single tile</span></div>
<div class="line"><a id="l00096" name="l00096"></a><span class="lineno">   96</span>    <span class="comment">//lower-case</span></div>
<div class="line"><a id="l00097" name="l00097"></a><span class="lineno">   97</span>    k &lt;&lt; <span class="stringliteral">&quot;if(!upper){\n&quot;</span>;</div>
<div class="line"><a id="l00098" name="l00098"></a><span class="lineno">   98</span>    k &lt;&lt; <span class="stringliteral">&quot;  for(ulong k = get_local_id(1); k &lt; curTileK; k += numWorkers){\n&quot;</span>;</div>
<div class="line"><a id="l00099" name="l00099"></a><span class="lineno">   99</span>    k &lt;&lt; <span class="stringliteral">&quot;      for(ulong i = 0; i &lt; TILE_SIZE &amp;&amp; get_local_id(0) == 0; ++i){\n&quot;</span>;</div>
<div class="line"><a id="l00100" name="l00100"></a><span class="lineno">  100</span>    k &lt;&lt; <span class="stringliteral">&quot;          if(!unit){Bsub[k][i] /= Asub[i][i];}\n&quot;</span>;</div>
<div class="line"><a id="l00101" name="l00101"></a><span class="lineno">  101</span>    k &lt;&lt; <span class="stringliteral">&quot;          for(ulong j = i+1; j &lt; TILE_SIZE; ++j){\n&quot;</span>;</div>
<div class="line"><a id="l00102" name="l00102"></a><span class="lineno">  102</span>    k &lt;&lt; <span class="stringliteral">&quot;              Bsub[k][j] -= &quot;</span>&lt;&lt; prod(k.expr&lt;value_typeB&gt;(<span class="stringliteral">&quot;Bsub[k][i]&quot;</span>), k.expr&lt;value_typeA&gt;(<span class="stringliteral">&quot;Asub[j][i]&quot;</span>))&lt;&lt;<span class="stringliteral">&quot;;\n&quot;</span>;</div>
<div class="line"><a id="l00103" name="l00103"></a><span class="lineno">  103</span>    k &lt;&lt; <span class="stringliteral">&quot;          }\n&quot;</span>;</div>
<div class="line"><a id="l00104" name="l00104"></a><span class="lineno">  104</span>    k &lt;&lt; <span class="stringliteral">&quot;      }\n&quot;</span>;</div>
<div class="line"><a id="l00105" name="l00105"></a><span class="lineno">  105</span>    k &lt;&lt; <span class="stringliteral">&quot;  }\n&quot;</span>;</div>
<div class="line"><a id="l00106" name="l00106"></a><span class="lineno">  106</span>    k &lt;&lt; <span class="stringliteral">&quot;}else{\n&quot;</span>;</div>
<div class="line"><a id="l00107" name="l00107"></a><span class="lineno">  107</span>    <span class="comment">//upper case</span></div>
<div class="line"><a id="l00108" name="l00108"></a><span class="lineno">  108</span>    k &lt;&lt; <span class="stringliteral">&quot;  for(ulong k = get_local_id(1); k &lt; curTileK; k += numWorkers){\n&quot;</span>;</div>
<div class="line"><a id="l00109" name="l00109"></a><span class="lineno">  109</span>    k &lt;&lt; <span class="stringliteral">&quot;      for(ulong n = curTileA; n &gt; 0 &amp;&amp; get_local_id(0) == 0; --n){\n&quot;</span>;</div>
<div class="line"><a id="l00110" name="l00110"></a><span class="lineno">  110</span>    k &lt;&lt; <span class="stringliteral">&quot;          ulong i = n-1;\n&quot;</span>;</div>
<div class="line"><a id="l00111" name="l00111"></a><span class="lineno">  111</span>    k &lt;&lt; <span class="stringliteral">&quot;          if(!unit ){Bsub[k][i] /= Asub[i][i];}\n&quot;</span>;</div>
<div class="line"><a id="l00112" name="l00112"></a><span class="lineno">  112</span>    k &lt;&lt; <span class="stringliteral">&quot;          for(ulong j = 0; j &lt; i; j ++){\n&quot;</span>;</div>
<div class="line"><a id="l00113" name="l00113"></a><span class="lineno">  113</span>    k &lt;&lt; <span class="stringliteral">&quot;                  Bsub[k][j] -= &quot;</span>&lt;&lt; prod(k.expr&lt;value_typeB&gt;(<span class="stringliteral">&quot;Bsub[k][i]&quot;</span>), k.expr&lt;value_typeA&gt;(<span class="stringliteral">&quot;Asub[j][i]&quot;</span>))&lt;&lt;<span class="stringliteral">&quot;;\n&quot;</span>;</div>
<div class="line"><a id="l00114" name="l00114"></a><span class="lineno">  114</span>    k &lt;&lt; <span class="stringliteral">&quot;          }\n&quot;</span>;</div>
<div class="line"><a id="l00115" name="l00115"></a><span class="lineno">  115</span>    k &lt;&lt; <span class="stringliteral">&quot;      }\n&quot;</span>;</div>
<div class="line"><a id="l00116" name="l00116"></a><span class="lineno">  116</span>    k &lt;&lt; <span class="stringliteral">&quot;  }\n&quot;</span>;</div>
<div class="line"><a id="l00117" name="l00117"></a><span class="lineno">  117</span>    k &lt;&lt; <span class="stringliteral">&quot;}\n&quot;</span>;</div>
<div class="line"><a id="l00118" name="l00118"></a><span class="lineno">  118</span>    <span class="comment">// Synchronise before continuing</span></div>
<div class="line"><a id="l00119" name="l00119"></a><span class="lineno">  119</span>    k &lt;&lt; <span class="stringliteral">&quot;barrier(CLK_LOCAL_MEM_FENCE);\n&quot;</span>;</div>
<div class="line"><a id="l00120" name="l00120"></a><span class="lineno">  120</span>    <span class="comment">// Store the final results back in B</span></div>
<div class="line"><a id="l00121" name="l00121"></a><span class="lineno">  121</span>    k &lt;&lt; <span class="stringliteral">&quot;for(ulong i = get_local_id(0); i &lt; curTileA; i += numWorkers){\n&quot;</span>;</div>
<div class="line"><a id="l00122" name="l00122"></a><span class="lineno">  122</span>    k &lt;&lt; <span class="stringliteral">&quot;  for(ulong k = get_local_id(1); k &lt; curTileK; k += numWorkers){\n&quot;</span>;</div>
<div class="line"><a id="l00123" name="l00123"></a><span class="lineno">  123</span>    k &lt;&lt; B(k.expr&lt;cl_ulong&gt;(<span class="stringliteral">&quot;(start+i)&quot;</span>),k.expr&lt;cl_ulong&gt;(<span class="stringliteral">&quot;(t * TILE_SIZE_K+k)&quot;</span>))&lt;&lt;<span class="stringliteral">&quot; =  Bsub[k][i];\n&quot;</span>;</div>
<div class="line"><a id="l00124" name="l00124"></a><span class="lineno">  124</span>    k &lt;&lt; <span class="stringliteral">&quot;  }\n&quot;</span>;</div>
<div class="line"><a id="l00125" name="l00125"></a><span class="lineno">  125</span>    k &lt;&lt; <span class="stringliteral">&quot;}\n&quot;</span>;</div>
<div class="line"><a id="l00126" name="l00126"></a><span class="lineno">  126</span>    </div>
<div class="line"><a id="l00127" name="l00127"></a><span class="lineno">  127</span>    boost::compute::kernel kernel = k.compile(B_unreg().queue().get_context(), options);</div>
<div class="line"><a id="l00128" name="l00128"></a><span class="lineno">  128</span>    <span class="keywordflow">return</span> {kernel,K_index,start_index,end_index,unit_index,upper_index};</div>
<div class="line"><a id="l00129" name="l00129"></a><span class="lineno">  129</span>}</div>
<div class="line"><a id="l00130" name="l00130"></a><span class="lineno">  130</span> </div>
<div class="line"><a id="l00131" name="l00131"></a><span class="lineno">  131</span><span class="keyword">template</span> &lt;<span class="keyword">typename</span> MatA, <span class="keyword">typename</span> MatB, <span class="keyword">class</span> Triangular&gt;</div>
<div class="line"><a id="l00132" name="l00132"></a><span class="lineno">  132</span><span class="keywordtype">void</span> trsm_recursive(</div>
<div class="line"><a id="l00133" name="l00133"></a><span class="lineno">  133</span>    matrix_expression&lt;MatA, gpu_tag&gt; <span class="keyword">const</span>&amp; Afull, </div>
<div class="line"><a id="l00134" name="l00134"></a><span class="lineno">  134</span>    matrix_expression&lt;MatB, gpu_tag&gt; &amp; Bfull,</div>
<div class="line"><a id="l00135" name="l00135"></a><span class="lineno">  135</span>    trsm_kernel&amp; kernel,</div>
<div class="line"><a id="l00136" name="l00136"></a><span class="lineno">  136</span>    std::size_t start,</div>
<div class="line"><a id="l00137" name="l00137"></a><span class="lineno">  137</span>    std::size_t end,</div>
<div class="line"><a id="l00138" name="l00138"></a><span class="lineno">  138</span>    std::size_t tileSizeA,</div>
<div class="line"><a id="l00139" name="l00139"></a><span class="lineno">  139</span>    std::size_t tileSizeB,</div>
<div class="line"><a id="l00140" name="l00140"></a><span class="lineno">  140</span>    std::size_t numWorkers,</div>
<div class="line"><a id="l00141" name="l00141"></a><span class="lineno">  141</span>    Triangular t</div>
<div class="line"><a id="l00142" name="l00142"></a><span class="lineno">  142</span>){</div>
<div class="line"><a id="l00143" name="l00143"></a><span class="lineno">  143</span>    <span class="keyword">auto</span> A = subrange(Afull,start,end,start,end);</div>
<div class="line"><a id="l00144" name="l00144"></a><span class="lineno">  144</span>    <span class="keyword">auto</span> B = rows(Bfull,start,end);</div>
<div class="line"><a id="l00145" name="l00145"></a><span class="lineno">  145</span>    std::size_t size = A.size1();</div>
<div class="line"><a id="l00146" name="l00146"></a><span class="lineno">  146</span>    <span class="comment">//if the matrix is small enough call the computation kernel directly for the block</span></div>
<div class="line"><a id="l00147" name="l00147"></a><span class="lineno">  147</span>    <span class="keywordflow">if</span>(size &lt;= tileSizeA){</div>
<div class="line"><a id="l00148" name="l00148"></a><span class="lineno">  148</span>        <span class="comment">//enqueue kernel with kernel args</span></div>
<div class="line"><a id="l00149" name="l00149"></a><span class="lineno">  149</span>        kernel.kernel.set_arg(kernel.K_index, Bfull().size2());</div>
<div class="line"><a id="l00150" name="l00150"></a><span class="lineno">  150</span>        kernel.kernel.set_arg(kernel.start_index, start);</div>
<div class="line"><a id="l00151" name="l00151"></a><span class="lineno">  151</span>        kernel.kernel.set_arg(kernel.end_index, end);</div>
<div class="line"><a id="l00152" name="l00152"></a><span class="lineno">  152</span>        kernel.kernel.set_arg(kernel.unit_index, (std::size_t)Triangular::is_unit);</div>
<div class="line"><a id="l00153" name="l00153"></a><span class="lineno">  153</span>        kernel.kernel.set_arg(kernel.upper_index, (std::size_t)Triangular::is_upper);</div>
<div class="line"><a id="l00154" name="l00154"></a><span class="lineno">  154</span>        </div>
<div class="line"><a id="l00155" name="l00155"></a><span class="lineno">  155</span>        std::size_t global_work_size[2] = {</div>
<div class="line"><a id="l00156" name="l00156"></a><span class="lineno">  156</span>            numWorkers,</div>
<div class="line"><a id="l00157" name="l00157"></a><span class="lineno">  157</span>            (Bfull().size2()+tileSizeB-1)/ tileSizeB * numWorkers</div>
<div class="line"><a id="l00158" name="l00158"></a><span class="lineno">  158</span>        };</div>
<div class="line"><a id="l00159" name="l00159"></a><span class="lineno">  159</span>        std::size_t local_work_size[2] = {numWorkers, numWorkers};</div>
<div class="line"><a id="l00160" name="l00160"></a><span class="lineno">  160</span>        Bfull().queue().enqueue_nd_range_kernel(kernel.kernel, 2,<span class="keyword">nullptr</span>, global_work_size, local_work_size);</div>
<div class="line"><a id="l00161" name="l00161"></a><span class="lineno">  161</span>        <span class="keywordflow">return</span>;</div>
<div class="line"><a id="l00162" name="l00162"></a><span class="lineno">  162</span>    }</div>
<div class="line"><a id="l00163" name="l00163"></a><span class="lineno">  163</span>    std::size_t numBlocks = (A.size1()+tileSizeA-1)/tileSizeA;</div>
<div class="line"><a id="l00164" name="l00164"></a><span class="lineno">  164</span>    std::size_t split = numBlocks/2 * tileSizeA;</div>
<div class="line"><a id="l00165" name="l00165"></a><span class="lineno">  165</span>    <span class="keyword">auto</span> Bfront = rows(B,0,split);</div>
<div class="line"><a id="l00166" name="l00166"></a><span class="lineno">  166</span>    <span class="keyword">auto</span> Bback = rows(B,split,size);</div>
<div class="line"><a id="l00167" name="l00167"></a><span class="lineno">  167</span>    </div>
<div class="line"><a id="l00168" name="l00168"></a><span class="lineno">  168</span>    <span class="comment">//otherwise run the kernel recursively</span></div>
<div class="line"><a id="l00169" name="l00169"></a><span class="lineno">  169</span>    <span class="keywordflow">if</span>(Triangular::is_upper){ <span class="comment">//Upper triangular case</span></div>
<div class="line"><a id="l00170" name="l00170"></a><span class="lineno">  170</span>        trsm_recursive(Afull, Bfull, kernel, start+split,end, tileSizeA,tileSizeB, numWorkers, t);</div>
<div class="line"><a id="l00171" name="l00171"></a><span class="lineno">  171</span>        kernels::gemm(subrange(A,0,split,split,size), Bback, Bfront, -1.0);</div>
<div class="line"><a id="l00172" name="l00172"></a><span class="lineno">  172</span>        trsm_recursive(Afull, Bfull, kernel, start,start+split, tileSizeA,tileSizeB, numWorkers, t);</div>
<div class="line"><a id="l00173" name="l00173"></a><span class="lineno">  173</span>    }<span class="keywordflow">else</span>{<span class="comment">// Lower triangular caste</span></div>
<div class="line"><a id="l00174" name="l00174"></a><span class="lineno">  174</span>        trsm_recursive(Afull, Bfull, kernel, start,start+split, tileSizeA,tileSizeB, numWorkers, t);</div>
<div class="line"><a id="l00175" name="l00175"></a><span class="lineno">  175</span>        kernels::gemm(subrange(A,split,size,0,split), Bfront, Bback, -1.0);</div>
<div class="line"><a id="l00176" name="l00176"></a><span class="lineno">  176</span>        trsm_recursive(Afull, Bfull, kernel, start+split,end, tileSizeA,tileSizeB, numWorkers, t);</div>
<div class="line"><a id="l00177" name="l00177"></a><span class="lineno">  177</span>    }</div>
<div class="line"><a id="l00178" name="l00178"></a><span class="lineno">  178</span>}</div>
<div class="line"><a id="l00179" name="l00179"></a><span class="lineno">  179</span> </div>
<div class="line"><a id="l00180" name="l00180"></a><span class="lineno">  180</span><span class="keyword">template</span> &lt;<span class="keyword">typename</span> MatA, <span class="keyword">typename</span> MatB, <span class="keyword">class</span> Triangular&gt;</div>
<div class="line"><a id="l00181" name="l00181"></a><span class="lineno">  181</span><span class="keywordtype">void</span> trsm_call(</div>
<div class="line"><a id="l00182" name="l00182"></a><span class="lineno">  182</span>    matrix_expression&lt;MatA, gpu_tag&gt; <span class="keyword">const</span>&amp; A, </div>
<div class="line"><a id="l00183" name="l00183"></a><span class="lineno">  183</span>    matrix_expression&lt;MatB, gpu_tag&gt;&amp; B,</div>
<div class="line"><a id="l00184" name="l00184"></a><span class="lineno">  184</span>    Triangular,</div>
<div class="line"><a id="l00185" name="l00185"></a><span class="lineno">  185</span>    left</div>
<div class="line"><a id="l00186" name="l00186"></a><span class="lineno">  186</span>){</div>
<div class="line"><a id="l00187" name="l00187"></a><span class="lineno">  187</span>    REMORA_SIZE_CHECK(A().size1() == A().size2());</div>
<div class="line"><a id="l00188" name="l00188"></a><span class="lineno">  188</span>    REMORA_SIZE_CHECK(A().size2() == B().size1());</div>
<div class="line"><a id="l00189" name="l00189"></a><span class="lineno">  189</span>    std::size_t <span class="keyword">const</span> TileSizeA = 32;<span class="comment">//size of the diagonal blocks where the single kernel runs</span></div>
<div class="line"><a id="l00190" name="l00190"></a><span class="lineno">  190</span>    std::size_t <span class="keyword">const</span> TileSizeB = 32;<span class="comment">// size of the blocks B is partitioned into along the number of columns</span></div>
<div class="line"><a id="l00191" name="l00191"></a><span class="lineno">  191</span>    std::size_t <span class="keyword">const</span> numWorkers = 8; <span class="comment">//number of workers in two dimensions (e.g. 8x8=64)</span></div>
<div class="line"><a id="l00192" name="l00192"></a><span class="lineno">  192</span>    <span class="keywordtype">char</span> <span class="keyword">const</span>* options =<span class="stringliteral">&quot;-DTILE_SIZE=32ul -DTILE_SIZE_K=32ul&quot;</span>;</div>
<div class="line"><a id="l00193" name="l00193"></a><span class="lineno">  193</span>    <span class="keyword">auto</span> kernel = bindings::createTRSMDiagBlockKernel(A,B,options);</div>
<div class="line"><a id="l00194" name="l00194"></a><span class="lineno">  194</span>    </div>
<div class="line"><a id="l00195" name="l00195"></a><span class="lineno">  195</span>    trsm_recursive(A,B,kernel,0,A().size1(), TileSizeA, TileSizeB, numWorkers,Triangular());</div>
<div class="line"><a id="l00196" name="l00196"></a><span class="lineno">  196</span>}</div>
<div class="line"><a id="l00197" name="l00197"></a><span class="lineno">  197</span> </div>
<div class="line"><a id="l00198" name="l00198"></a><span class="lineno">  198</span><span class="keyword">template</span> &lt;<span class="keyword">typename</span> MatA, <span class="keyword">typename</span> MatB, <span class="keyword">class</span> Triangular&gt;</div>
<div class="line"><a id="l00199" name="l00199"></a><span class="lineno">  199</span><span class="keywordtype">void</span> trsm_call(</div>
<div class="line"><a id="l00200" name="l00200"></a><span class="lineno">  200</span>    matrix_expression&lt;MatA, gpu_tag&gt; <span class="keyword">const</span>&amp; A, </div>
<div class="line"><a id="l00201" name="l00201"></a><span class="lineno">  201</span>    matrix_expression&lt;MatB, gpu_tag&gt;&amp; B,</div>
<div class="line"><a id="l00202" name="l00202"></a><span class="lineno">  202</span>    Triangular,</div>
<div class="line"><a id="l00203" name="l00203"></a><span class="lineno">  203</span>    right</div>
<div class="line"><a id="l00204" name="l00204"></a><span class="lineno">  204</span>){</div>
<div class="line"><a id="l00205" name="l00205"></a><span class="lineno">  205</span>    <span class="keyword">auto</span> transB = trans(B);</div>
<div class="line"><a id="l00206" name="l00206"></a><span class="lineno">  206</span>    trsm_call(trans(A),transB,<span class="keyword">typename</span> Triangular::transposed_orientation(),left());</div>
<div class="line"><a id="l00207" name="l00207"></a><span class="lineno">  207</span>}</div>
<div class="line"><a id="l00208" name="l00208"></a><span class="lineno">  208</span> </div>
<div class="line"><a id="l00209" name="l00209"></a><span class="lineno">  209</span>}</div>
<div class="line"><a id="l00210" name="l00210"></a><span class="lineno">  210</span><span class="keyword">namespace </span>kernels{</div>
<div class="line"><a id="l00211" name="l00211"></a><span class="lineno">  211</span><span class="comment">//main kernel runs the kernel above recursively and calls gemv</span></div>
<div class="line"><a id="l00212" name="l00212"></a><span class="lineno">  212</span><span class="keyword">template</span> &lt;<span class="keyword">class</span> Triangular, <span class="keyword">class</span> S<span class="keywordtype">id</span>e, <span class="keyword">typename</span> MatA, <span class="keyword">typename</span> MatB&gt;</div>
<div class="line"><a id="l00213" name="l00213"></a><span class="lineno">  213</span><span class="keywordtype">void</span> trsm(</div>
<div class="line"><a id="l00214" name="l00214"></a><span class="lineno">  214</span>    matrix_expression&lt;MatA, gpu_tag&gt; <span class="keyword">const</span>&amp; A, </div>
<div class="line"><a id="l00215" name="l00215"></a><span class="lineno">  215</span>    matrix_expression&lt;MatB, gpu_tag&gt;&amp; B</div>
<div class="line"><a id="l00216" name="l00216"></a><span class="lineno">  216</span>){</div>
<div class="line"><a id="l00217" name="l00217"></a><span class="lineno">  217</span>    bindings::trsm_call(A,B,Triangular(), Side());</div>
<div class="line"><a id="l00218" name="l00218"></a><span class="lineno">  218</span>}</div>
<div class="line"><a id="l00219" name="l00219"></a><span class="lineno">  219</span>}}</div>
<div class="line"><a id="l00220" name="l00220"></a><span class="lineno">  220</span><span class="preprocessor">#endif</span></div>
</div><!-- fragment --></div><!-- contents -->
</div>
</body>
</html>
